#include "c:\Objects.20\Objects.ch"

static nId := 1

//----------------------------------------------------------------------------//

CLASS TMenuItem

   DATA   cPrompt, cMsg
   DATA   nId
   DATA   bAction

   METHOD New( cPrompt, cMsg, bAction ) CONSTRUCTOR

ENDCLASS

//----------------------------------------------------------------------------//

METHOD New( cPrompt, cMsg, bAction ) CLASS TMenuItem

   ::bAction = bAction
   ::cPrompt = cPrompt
   ::cMsg    = cMsg
   ::nId     = nId++

return

//----------------------------------------------------------------------------//
